(in-package #:com.alibaba.fastjson)

(defclass JSONPathParser ()
  ((path)
   (pos)
   (ch)
   (level)))


;; 918
(defmethod isEOF((clz JSONPathParser))
  (>= (slot-value clz 'pos) (length (slot-value clz 'path))))


;; 1826
(defmethod isDigitFirst ((clz JSONPathParser) ch)
  (or (cl:eq ch #\-) (cl:eq ch #\+) (and (char-greaterp ch #\0) (char-lessp ch #\9))))


